home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / qrep096 / mdrep.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  1.9 KB  |  79 lines
  1. unit Mdrep;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Quickrep, DB, DBTables, ExtCtrls, Buttons, Spin;
  8.  
  9. type
  10.   TMDForm = class(TForm)
  11.     MDRep: TQuickReport;
  12.     Title: TQRBand;
  13.     CustomerHeading: TQRBand;
  14.     QRDBText1: TQRDBText;
  15.     QRLabel3: TQRLabel;
  16.     QRLabel4: TQRLabel;
  17.     QRDBText3: TQRDBText;
  18.     QRDBText4: TQRDBText;
  19.     QRLabel5: TQRLabel;
  20.     QRDBText5: TQRDBText;
  21.     CustomerFooter: TQRBand;
  22.     QRDBCalc1: TQRDBCalc;
  23.     QRLabel7: TQRLabel;
  24.     PageFooter: TQRBand;
  25.     QRLabel8: TQRLabel;
  26.     QRSysData1: TQRSysData;
  27.     Summary: TQRBand;
  28.     QRSysData2: TQRSysData;
  29.     QRLabel13: TQRLabel;
  30.     QRLabel12: TQRLabel;
  31.     QRLabel11: TQRLabel;
  32.     QRLabel10: TQRLabel;
  33.     QRLabel9: TQRLabel;
  34.     QRLabel14: TQRLabel;
  35.     Detail: TQRBand;
  36.     QRDBText2: TQRDBText;
  37.     QRDBText7: TQRDBText;
  38.     QRDBText9: TQRDBText;
  39.     QRDBText10: TQRDBText;
  40.     QRDBText11: TQRDBText;
  41.     QRDBText6: TQRDBText;
  42.     QRDBCalc2: TQRDBCalc;
  43.     QRLabel6: TQRLabel;
  44.     CustomerTable: TTable;
  45.     OrdersTable: TTable;
  46.     CustomerDS: TDataSource;
  47.     OrderDS: TDataSource;
  48.     OrdersTableOrderNo: TFloatField;
  49.     OrdersTableSaleDate: TDateTimeField;
  50.     OrdersTableItemsTotal: TCurrencyField;
  51.     OrdersTableTaxRate: TFloatField;
  52.     OrdersTableFreight: TCurrencyField;
  53.     OrdersTableAmountPaid: TCurrencyField;
  54.     CustomerTableCustNo: TFloatField;
  55.     CustomerTableCompany: TStringField;
  56.     CustomerTablePhone: TStringField;
  57.     CustomerTableFAX: TStringField;
  58.     CustomerTableContact: TStringField;
  59.     OrdersTableCustNo: TFloatField;
  60.     QRLabel15: TQRLabel;
  61.     Image1: TImage;
  62.     QRLabel1: TQRLabel;
  63.     QRLabel16: TQRLabel;
  64.     QRDetailLink1: TQRDetailLink;
  65.   private
  66.     { Private declarations }
  67.   public
  68.     { Public declarations }
  69.   end;
  70.  
  71. var
  72.   MDForm: TMDForm;
  73.  
  74. implementation
  75.  
  76. {$R *.DFM}
  77.  
  78. end.
  79.